home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 004 / talker.arc / TALKER.BAS
Encoding:
BASIC Source File  |  1986-08-03  |  10.5 KB  |  93 lines
  1. 10 ' title
  2. 20 CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80
  3. 25 LOCATE 5,26:PRINT"╔══════════════════════════╗"
  4. 26 LOCATE 6,26:PRINT"║   ┌──────────────────┐   ║"
  5. 27 LOCATE 7,26:PRINT"║   │  **  TALKER  **  │   ║"
  6. 28 LOCATE 8,26:PRINT"║   └──────────────────┘   ║"
  7. 29 LOCATE 9,26:PRINT"╚══════════════════════════╝"
  8. 30 LOCATE 7,37:COLOR 22:PRINT"TALKER";:COLOR 7,0
  9. 31 LOCATE 15,26:PRINT"        Initializing...":LOCATE ,,0
  10. 40 ' load machine subroutine
  11. 41 CLEAR ,&H4000:TALK=&HE000:DIM A$(36)
  12. 45 FOR I=0 TO 71:READ J:POKE TALK+I,J:NEXT I
  13. 50 ' the machine language subroutine
  14. 51 DATA &H55,&H8B,&HEC,&H8B,&H76,&H6,&H8A,&H4,&H8A,&HC8
  15. 52 DATA &H46,&H8B,&H3C,&H8A,&HE9,&HE4,&H61,&H24,&HF7,&HE6,&H61
  16. 53 DATA &H8A,&H3D,&H80,&HFF,&H20,&H74,&H25,&HB6,&H6,&HFE,&HC6
  17. 54 DATA &HD0,&HE7,&H32,&HE4,&HD0,&HE7,&HD0,&HD4,&HD0,&HD4,&HE4
  18. 55 DATA &H61,&H24,&HFC,&H2,&HC4,&HE6,&H61,&HB3,&H25,&HFE,&HCB
  19. 56 DATA &H75,&HFC,&HFE,&HCE,&H75,&HE6,&H47,&HFE,&HCD,&H75,&HD4
  20. 57 DATA &H5D,&H58,&H5B,&H59,&H53,&H50,&HCB
  21. 100 ' set voice definitions
  22. 101 A$(1)="°ÇêÇâ├≡ÄçüÇ╛çâßα■â┴≡░ƒüα°ÉÅ└≡╝ǃ└░╝èÅ└£₧çÅα£Åüç≡çç└ß≡â├α°■â├≡° üπ≡°┐âπ≡╕ üß≡╝┐üß°£┐┴≡°₧ƒ└≡ⁿăα°╛çÅα°╝ÅÅα°₧ç╟α╝ƒç├≡╝ƒçß≡╛Åâß≡╛Åâ±α╝Å├∙└°ƒç÷ü°╛çⁿâ≡ⁿÅ≡Å┴°┐└╛â≡ⁿü°ƒ╟≡Å└ⁿ╛üⁿÅ≈αƒ└ ■üⁿç αƒ└ ⁿâ°Å Ç┐â ≡çα ⁿâ°ƒ ÇⁿÅ Ç╝ŠǣŠǣŠÇäÅ ÇÇ┐ⁿÇÇ °"
  23. 102 A$(2)="■Çÿîüⁿâ ≡â≡Åπ└ƒ└╝Äüⁿâ≡°ç≡Åç└ƒ└╝₧Çⁿüαⁿâ°â┴≡ç≡çâαÅα₧ç└ƒ└£ÅÇ┐Ç╕ƒÇ╛Ç≡╛Çⁿüα■ÇⁿÇÇ■ÇⁿÇÇ■Ç■ÇÇ■Ç■ÇÇ■Ç■ÇÇ╛Ç┐ÇÇ■Ç■ÇÇ╛Ç ÇÇ₧Ç┐ÇäÄÇ┐Ç£îÇ■Ç£ÿÇⁿÇⁿÉâ°üßÇÅ└ÅÇÇ╛Ç°ÇçαîÇÇ╕ÇÇÇåÇ└ÇÇÇöÇÇÇÄÇÇÇÄÇÇÇèÇÇÇé"
  24. 103 A$(3)="└ÇÇÇÇÇäÇÇÇÇÇÇÇåÇÇÇÇÇÇÇÇëÇÇÇÇÇéÇÇÇÇÇÇÇÇÇÇÇ└ÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÅ⌠Çç°┐Çâⁿƒ■Ç╛ç ÇÅ┴ αç≡┐°â°ƒⁿÇ■â Çƒ└ ≡ç°Å■Ç┐ü αç°Å■Ç┐└ ≡âⁿâ■Ç┐└ƒ°ü■ü αç°ç Çƒαƒ■Ç┐Ç┐°ü■ü ≡âⁿü αÅ≡â Çƒαç Çƒ└Å■Ç┐└Å■Ç ÇçⁿÇ ÇÅ°ü■Çù≡ç°â╟└ƒα£₧Ç■Ç≡≡ç≡ÅÄÇ╛ü≡≡ç└ÇÄÇ╕éÇ└â"
  25. 104 A$(4)="└ÇÇÇÜÇìÇâ≡ü°└ÅαÅ└ü■ÇⁿáÅ≡Å≥Ç Ç ░ç≡ç√Ç Ç┐ÿç°ü·└Å└Å∞âⁿDzáÅ≡â²└ƒ└Å■Ç╛ǃ°ÇⁿÇ ░ç°üⁿ≡Å≡â°└ƒ└Åπǃǃ╓Ç╛Ç┐¼ÇⁿÇ■ÿü°üⁿáç≡â°ÇÅαÅαÇ■Ç áâ°â Çƒ└ƒ°üⁿü Çƒ└ç≡â°ü■Ç╛Ç┐ÇÅ└ÇÇâαÇÇÇ╕ÇÇÇé"
  26. 105 A$(5)="ⁿÇⁿǃÇÅ└Åαçαç≡â°â°üⁿüⁿÇ■ü■Ç╛Ç■Ç┐Ç┐└ÅαÅ≡â°âⁿÇ Ç └Å≡Å°âⁿâ■Ç┐└┐αç≡çⁿü■Ç └Å≡çⁿü■Ç └Å≡çⁿü■Ç┐└Å≡çⁿÇ■Ç┐└ƒαç°ü■Ç └Å≡çⁿü■Ç┐└Å≡çⁿÇ■Ç┐└Å≡çⁿü■ǠǃαÅ≡âⁿü Ç┐└ƒαç≡âⁿü■Ǡǃ└┐αÅαÅ°â≡ç°ü°üⁿÇ╛Ç░ÇÇÇÇÇÇÇÇÇÇÇä"
  27. 106 A$(6)="ααα≡ÿ╕í╟âçåÄ°░≡├╧çÅ░°ßτ├çå₧ⁿÿ°ßτ├çå£ⁿ░°ß∩├ç£│°ß≤╞¢åÄ╕≤╕ß├Ä╗åî░π°░τåƒå£°º∙╙ºê┐═ö≡╦°╤├å╧┼îÿÉⁿ¿Θß▐ΓçΣƒ÷Çåç±└ÇÇⁿÇÇÇÇ└"
  28. 107 A$(7)="└Ç└ÇóÇäÇ└└▒ÇÇÇÇÇä┬¼éäÇ╣ÇÇüÉà⌠é╚äü üñÉü üαÇü■âαÉâⁿç└ÇÅ≡ƒüǃα■äÇ üⁿêü■ü°Çâⁿâ≡áç°ç≡└Å°ç∙└Å°â²└Å°â └ç°ü αçⁿü αç°ü └çⁿÇ αçⁿÇ αçⁿÇ αç°Ç αç°Ç └Å≡ü Çƒαç■Ç Ç┐≡âⁿü └ƒαÅ°üⁿü■Ç₧Ç╕└Å└ÿÇÇαÇÇÇÉÇÇÇÇÇÇÇÇÇÇÇÇÇÉÇÇÇÇÇÇÇê"
  29. 108 A$(8)="ⁿçâα≡■ç╟ß≡ⁿÅç├≡°₧Å├ß≡╝Åç├α°╝Åçâ≡°╛ÿÅ╟α°Φ▐çâ÷ü≡╕ƒ░Åâ≡ ÇⁿÅ╟≡Å┴°ⁿâ°ƒ▀└£â ≡Å└»°çαàⁿâⁿÇ▀ǃÇÇÇÇÉÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇüÇäíüÇÉäê┬ÇêÉÉëåüäáäÇÇ┬ä└üÑÇ░üáÇ┬╚êÇ╥┬êê└Çê└ÇÇÇ¥ûÇÇÑ░ÇÇÇÇ╒Çè╒≡ü¬└ÇåÄÇÇå"
  30. 109 A$(9)="╟Çó▓âê┤æ│üê╛îΦΓåäúï£└─î≤ú£│éÿ┘╞êπî∞πîπî¼πê┬ÿ∙µ£├ÿ∙πîßî∞α╞┬î╝αåúå₧░é▒├èÿÇÿΘ╟╠üî£ΓµÇºîÿ±└æ╞åä░ä▒╚┴╠üîôÿ│┬ÇÇúå╕╞ÿë├ûü╠ó░πÇí┴è┤αä░ú╩£É╚╨ß╞éê╕▒±┬äê┤░┴åê╕°áÄÉ≡°ÉƒÇ░╝êÅÇ°╕£Å└≡ⁿÄÅüα°£₧ç┴≡╕≡₧çü±Ç≡╕çêÅâ└╣Ç≡╕çÇÄçÇ░üÇÉÇÇÇÇÇÇÇÇâ└ÇÇü└ÇÇäÇÇÇá"
  31. 110 A$(10)="éÇÇÇÇÇéêü─áÇÉéñÆΦüⁿÇ╘Éâⁿç≡≡â°Åß≡ƒα┐ç└┐â°╛üⁿÅ├ⁿçαⁿƒêÅ┴≡ⁿ░ƒçß°≡₧Å┴≡°₧Åâß°₧ç├ß·âπ≡°╝Ç°╝₧Åÿ₧Åç├÷ç╟ß≡²üß°°┐ü≡°╝ƒα°╝₧ç╨╝₧Åâ°₧Åç┴°₧Å├ßⁿç╟ß≡╝ç├≡≡╛âß°╝₧ü≡ⁿ₧çü°╛ççÇ°ƒçπÇⁿƒâπÇ°ƒâⁿü≡ⁿÅαÅ┴°┐ÇⁿÅ┴°çαⁿƒÇⁿÅ├αƒâ≡°çßⁿ╛Ç°┐┐Ç≡┐■ÇÇ┐ⁿÇÇ┐ΦÇÇ┐αÇÇ┐αÇÇ┐áÇÇ£"
  32. 111 A$(11)="└åÇáÇÇÇÇÇÇ└ÉÉÇÇÿÇÇç ⁿÇÇÇ┐°Çü■Ç■ⁿÇ ÇÇé αâ°ç ∙≡ƒ╟≡·ü°╛ƒ≡₧Åπ√ü≡ⁿ┐ÿÅçß∙α╝ƒç╟ü≡ⁿ₧₧âπ≡°╝Åç├≡°ÄÅ╟ß°₧Åçâ≡₧ƒÅâ°ÄÅç├ⁿçç├ß âπß≡ └≡°╕┐≡╝╛₧çⁿÄÅç├ⁿç╟┴≡ ü±°╝ƒα╕╛ÅçⁿÅçß≡ ü≡°₧ç≡₧Å├ßⁿÅπ≡╝Åü°╛çπα╛çα■≡Åß°ƒ°ç≡ⁿÅⁿâ≡╛ç°â≡╛ç≡ÅαⁿÅαƒ┴°ƒÇ╛â≡ⁿü°ƒç≡çß°┐ǃç ≡üπ"
  33. 112 A$(12)="└αÇçü├├Ççü├├âÅü├├Çîü├ßÇåÇßß┬ÄÇ░±πÅÇ░∙α├äÿ░α├Γîÿ░í√Äî╕æ╜çÄ£░╬╟╟îêºú┬îäºß├├éÖ╪αααä°░╕ÿα╝££¼▒₧ÄåÜî∩çâ─å│çâ┬â£├┴ßÇ╬ßα≡α│α≡╕░Åα≡╝ÿç≡°£îç≡°₧Äçα≡╝Äçß≡╝Äç┴≡╝Åç┴≡╝Åçâα╕Äåç└≡££Åâα░α°Åüπâα╝ç╚Åüα₧Ç°ÄÇⁿçüαîα≡£ü°êçÇç├üαÇ≡äÉÇ╝ÇäÇ│ÇÇÇëÇÇÇÇÇÇÇåÇÇüî"
  34. 113 A$(13)="αââ├çÇ££îîÇî₧Çì─Ä₧êâ┴â╟┬ÇÇ░ß±┴¿äî╝ÿíÇ┴ç├ä╨äÿ╕É╬ÇâçÉë└Çß≥Ç╪åî£░ÑÇí├┬ä°ÿ╕°ÉÅâ┼╟┴ü╪ÿ╪ⁿêƒåçÅ└α≡└°ⁿçαêç└└ç┐└┐ÇÇ╛ÇÇ ÇâÇǃαÇÇÇÅ≡ÇâÇÅ°ÇüÇÅ≡ÇéÇÅ≡ÇÇǃαÇÇÇ └Çáü■ÇÇÇÅ≡ÇÇÇ┐└ÇÇâ ÇÇǃ°ÇÇü └ÇÇ┐╧└≡Å┴°₧ü°╛Åα╝Å┴°Åâ≡■âα°ƒÇ≡╛Åα╕Å╟α£Åτ≡£ÅταîÅ └ǃ√Çǃ⌠"
  35. 114 A$(14)="┴τßßτÇ∩ßßτÇ∩┴ú∩ü ├├╬ü àà£à╛ÄÅ╕à■èÄ°ïⁿö₧≡ƒ°╕╜░ƒ≡≡■á┐α░■â üαⁿç■ǃⁿüⁿÇ ≡ç≡â └┐└Å■üⁿÇ┐°Å≡â └┐ǃⁿç°ü α┐└Å■üⁿÇ ≡ƒαç■üⁿÇ αƒ└çⁿç°ü ü■Ç┐≡ƒ└ÅⁿÅ≡ü âⁿÇ α■ǃ≡┐ÇÅ°ƒαç■Å≡â Å≡â ç≡ü ç≡ü■╟≡ü╛╧≡ü┐▀≡Çⁿ┐α└ÿƒ Ç└ °åâ αîÅ └░┐■Ç└■ⁿââ ≡äç αÇÅ ÇÇ┐ⁿÇü ≡Çç "
  36. 115 A$(15)="≡╕áÇââåéÇÄÄîÇÉ£ÄîÇá£Äêäá£ÄîäÇ£ÄÄåÇÄçåâÇçâ├üÇçüß└αâ└≡≡áÇ≡╕£êÇ╕ÄâåÇçâ┴ααá≡╕╕ÿî£çåâ└ßα°░ÿîÄç├┴α░≡£îçâ├α≡░îäÅâßα░É╕Äçüα┴≡╝îçüâα°£Äéçüαÿ£äÄâα░╕ê£çÇßαá°₧â┴└ü≡£çâ└âα╕ÄâÇç└≡îåÇÅüα£îÇ₧âα°£Ç╝ç└≡ÇÇ°ÅÇ≡Çü≡₧üαÇçα╝â└ǃÇ≡ÄÇü°çüαÇ╛üαîǃǰçǃÇ╕çαƒ"
  37. 116 A$(16)="└ÿë°Çü ⁿÇü└ƒ≡ÇÅ  ÇÇÇÅ≡ÅÇ┐αÇǃ ≡Çǃ°Ç·ƒ└ƒ┴ⁿüⁿÅαÅα Ç┐âⁿüⁿç≡ç≡ƒ└Åα┐└ƒ└ └ƒ└ └Å└┐αçαƒ≡â°çⁿÇ■Dz└ÅαÅ╪ü■ü°αç°âαǃαç┴ǃαçü└Å≡ÇÇÉü■ÇÇÇÇÅαÇÇÇÇ ÇÇÇÇÇ■ÇÇÇÇÇ ÇÇÇÇǃ└ÇÇÇÇâ°ÇÇÇÇǃÇÇÇÇÇÇⁿÇÇÇÇÇâ≡ÇÇÇÇÇâ≡ÇÇÇÇÇü≡"
  38. 117 A$(17)="└ÇÇÇÇÇÇÇÇÇÇÇÇäÇÉÇÇÇÇÇÇÇÇÇÇÇÇÇéÇÇüÇÇÇêÇÇÇÇáÇǃ°Ç┐╧≡çⁿ╛ǃ ≡⠠ǃ⌡°ü »└Å·■Ç■├≡â°»αƒα■Ç■ç°â°Å°â°ƒ°â°ƒⁿüⁿÅ Ç â ≡Å└ⁿ üⁿÅπ°ç≡╝Åαƒ┴≡ƒαƒ├°Å°çαⁿç Çⁿç└┐₧ü°ÅÇ■ƒÇⁿç└£çαÅ└Çâ╚░ÇÄÇÇü ≡ÇÇâ ▄ÇÇÇÇÅ■ÇÇÇÇ£"
  39. 118 A$(18)="└αÿ╝░Ç₧âÅ╞êƒ├╟πåÅ┴πτă┴├πåÅßππ╟Å≡±±π╞°╕╝≡π₧ÄÄÿ╕∩├â╬î╗╤┴πâ¥Σ╕£α│Ö╞çîå╖╕≡±└µτ╞ç£î┐°░▒╨┴▌╟â¢ÿ¢╠░╣°┴╠πâ╔┴═ε££îîε≡Φααµ∩╞╞åååⁿ╝╕░░ºπππâé╛₧ƒ£ÿ¢±±±±├■₧ƒåèƒ┴πααº≡░°ÿƒ≡╕£îÅ°£Äçâ°Äçâß°Äçâα°ÄÅçß≡£ÄÅ├α≡╝₧₧çâα≡≡╝₧ç÷ââα²αÇ╕┐ÇÇü ÇÇü ÇÇÇ áÇü■ÇÇâⁿ"
  40. 119 A$(19)="°ÇäÇÇ°╕╕░╛├├┬è∞££░≤ßπ╟Å╛₧£╕≤±≤├╞ƒ╟Ä£Öⁿ░±├╟ß╟╞Ä┐à£ÿ≤ⁿ┤≡π╧ßπ╟Ä┐ì£ÿ√°╕░╥ âç╩»≡╕╝ƒ â├ß ≡££ƒεüÇü αÇÅ ≡Çç ÇÇ£ÇÇâ■ÇÇÇåÇÇÇÇáÇöÇÇÇåüÇÇÇé╘ÇÇÇÉüÉÇÇÉÇÇÇÇì┬ÇÇɬÉÇüÑêÇÇÇäÇ▓ÇÇÇäÇóÇÇÇÇÇáÇÇäíÇÇÇ▐ÇÇåÇÇÇô║éöÇÇáÉÇÇüÇöÇè▄ÇÇÇáÇÇÇÇûÇÇÇ└üαÇÇáÇñÇÇÇ┴"
  41. 120 A$(20)="└Çá┴╜É╠áÇÇ╟╧⌡ÇÇ┐╩ÇⁿÇ┐≡äÇåÅÇ┐αÇç²└ÇÇç╚ÇÇÇÇâ αÅ┴■ÇⁿÅ≡ç≡┐Ç┐ü°â°ÅαÅα┐└ƒ└■Ç╛ü■Ç■âⁿÇⁿâ■Ç╛â ÇƒÇ αç≡┐°üⁿç≈ǃα╛ÿü■â±αç≡Å┴ǃα╛åÇ┐└ⁿåÇ Çⁿîü■Ç°îÇ Ç╕ÄÇ┐└£ÅÇ┐└Äç└ƒαçâ└Å≡Äçαç≡ÄçαÅα₧ç└ƒ└°ÅÇ╛âα╝â≡₧âαƒüα╝üα╕Å└ÇåüαÇüüÇÇÇäÇÇÇ╝ÇÇÇ≡ÇÇüα"
  42. 121 A$(21)="ⁿÇÇÇÇüⁿÇÇÇǃαÇÇÇâⁿÇÇÇü■ÇÇÇÇ ÇÇÇÇ┐└ÇÇÇ └êÇÇ └ûÇÇ Ç╛áü■üⁿ└Å°ç·Ç┐α┐°ü■ü αÅ°Å Ç┐└ ⁿü■â ≡Å≡ƒ └┐└ ■ü■â ⁿâ°ç °â°Å∩°ç°ç≈ⁿâ°ç∩ⁿüⁿç≤■Ç■âⁿ Ç┐└╝ αƒαƒÅ≡ç°ç≤°âⁿâ ⁿâⁿü∙°âⁿü°≡ç°çß└Åα╛ÇÇ╛â└ÇâαÇÇ°ÇÇ ⁿÇÇÅ≡ÇÇüⁿÇÇÇ┐ÇÇǃ≡ÇÇÇÇ╝"
  43. 122 A$(22)=" αÇÇÇç ÇÇÇÇ┐ΦÇÇÇâ■ÇÇÇÇçσÇÇÇǃ╚ÇÇÇé╥ÇÇÇÇåαÇÇÇÇû└ÇÇÇÇÇÇǿǃ└ÇÇÇü«ÇÇ└ÇÿÇüôÇà²åäÇÅⁿÇîÇÅ°Å≡ǃ≡┐πÇ └ ╕üⁿç └ƒα┐■Ç ü °â■â ≡çⁿç αç°ç αç°ç ≡çⁿâ ≡çⁿâ °ü■Ç┐■Ç Çç Çƒ≡ü ≡âⁿÇ┐ⁿÇ └ç └Å≡Ç ≡â■Çç Ç┐αÇ┐≡âⁿÇç■Ç┐└Ç┐αÅ≡ÉÅ°üⁿÄü■Ç┐ç└┐ǃâαƒ└ç├≡ÄÇââ≡éÇÇç≡î"
  44. 123 A$(23)="╨ÇÇ■Ç░ç°Åç├≡╕£ƒ╚╕╝ƒα≡≡√±ßßτß±≡╖≡°°╜°╝₧Å╬ç├α≡Ç╕áÇÿÇÅÇÇÇÇÇÇäÇÇÇÇÇÇÇǃÇÇ└â≡₧ç├°Å├≡ⁿâß°ƒ└°£ÅαÄç┴°âß≡┐└╛ç└╛Ç■ü≤°â°â └Åαç Ç┐└ç■Ç┐└çⁿÇ └âⁿǃαDzÇçⁿÇÅ≡â°ÇÇⁿÇ■Çá╛Ç Çǃǃ└èÅ└ƒαåçαç≡éâ°â°â┴ⁿüⁿâ└■Çⁿâα┐Ç■â≡ƒ└╛âαƒÇ■â≡ƒÇ■âα╛ü°ç└°ç≡₧âαƒÇ°₧Ç°çα≡ç└ÿ£"
  45. 124 A$(24)="≡░α─╝ÿ≡ß╟ßçÄî┐å£╕▒ⁿÿ±ß╟≡π├ă├Åî╕■Üÿ±τ±±ßç■û£ïƒâ├α≡ÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇ╝ÇÇ≡âèα╕òáêÇÇéÇÇÇé┴êüäÇáÇÇÇêÇÇÇáüÇÇüëÉÇÇÇÇá└éÇÇÇÇÇÇ└ÇêÇÇÇáÇüÇ¡ÇÇñÇ└êÇä└ÇÇäá"
  46. 125 A$(25)="°ÇÇÇÇÇ╝ÇÇÇÇÇⁿÇÇÇÇüⁿÇáÇáç≡âαƒÇ■ü≡ƒÇƒ┴α╝ç┴≡╝₧Äî₧ƒçç└ßπ±πÄÄî₧£▒├≡π±╞ÿ≤Ä₧ÿπÄ░π≤╞îτÄ«╕Ö╠╕π≤üêτ╞₧╕æî°Γτå│τÄî▒─╣±├╠ÿτƒÿ╣≤î│±ç₧░τ╛ɱτî╖Γ╬ÿ░╧╕╣≤╞ÿ■Äÿ░âƒ├╟╧åÅ≡≡±ßπ°╝╝£ç╪£ƒçâ≡₧Åâ├≡╝ƒç╟└°╛ç°çß°ƒ└╝Å┴ⁿâαⁿÅ└╝Å┴°ç┴°₧ü≡₧ç└╕Åâα£ç┴ⁿÇÇ╕àÇÇäéÇÇüε└ÇÇ»└"
  47. 126 A$(26)="╨ÇÇÇÇÇΘÇÇÇÇÇ╨ÇÇÇÇ┐ÇÇÇÇÅαÇáÉçα╕ αÅ└ⁿ └ⁿç├ⁿâß°┐Ç╝₧ŵⁿÇⁿǃÇÅ└Åαçαç≡â°â°üⁿüⁿÇ■ü■Ç╛Ç■Ç┐Ç┐└ÅαÅ≡â°âⁿÇ Ç └Å≡Å°âⁿâ■Ç┐└┐αç≡çⁿü■Ç └Å≡çⁿü■Ç └Å≡çⁿü■Ç┐└Å≡çⁿÇ■Ç┐└ƒαç°ü■Ç └Å≡çⁿü■Ç┐└Å≡çⁿÇ■Ç┐└"
  48. 127 A$(27)="└ÇÇǃÇÇ└ÇÇâ≡ÇéÇÇü⌠ÇéÇÇÇ╕ÇéüÇÇ₧Çé▓É└┐└Çα┴ÇⁿÇå└£ç°ü¡íü■Ç°Çá┐└▐Ç≡ƒα┐ü≡ƒ└┐ü░ƒ└┐ü≡▀Çⁿàß╛ü≡ù├ⁿïΣ┘â°Åéß╦·«ï┴┴°ƒâ≡α■Å┴Σ°ƒâ┴∙₧ù╤≡╛ù┼≡■çµ≡■çα°╛ç≡·Åçé┐â└°ⁿÿⁿåâ╙≡±ⁿεÄåâ≤°ⁿ╢ƒï╤°≡╕£Ä¿■ÿÄçæâÄ╟ü├≡ÿ▒⌠╕ăêτÅú└±≡╕î£çüßα╕î£ç└±≡╕ÄÄüα╕╕Äüâα£çç└Ç░╝â└┴α"
  49. 128 A$(28)="■ÇÇÇǃ└ü└ç└åÇåÇÇÇÇÇÇüÇüⁿÇ≡â≡₧â■Ç╛çα╝Å°Å┴°Çⁿâα╛â├≡₧çßⁿ₧ƒ├π≡ππ°±τî╕εÿ≤τÄùîîπçï╬Ä││╔╞╞║╣ßπτîñ⌠ßπ╠▄╕°ß╟ª╝°±τ─╝ÿ▒≈╩╝₧¿▒≤å╦䣰ß≥Φå▐ÇŵÇå°á αÇ┐└â■Ççⁿǃ°Çƒ≡á┐≡Ç┐αÇ┐╨ǃαǃ≡ÇÅ°éâ■Çü ÇɃαÇÅαéü■ÇÇ┐ÇÇâⁿÇÇ ÇÇâⁿÇü■ÇÇâⁿÇÇ┐ÇÇü■ÇǃÇÇÇ┐ÇÇÄÇÇÇÇⁿÇÇë"
  50. 129 A$(29)="└Çâê≡╡ÇüÇÇá╚┴üüÇüαÇ┬└é≥ÇÇöüíÉÇÇÇÇùÇöêÇç°₧½°ƒ┴≡┐α■ç┴∙ç°₧Å⌠ƒα°ƒα┐┴≡╛α âα É╛┴≡╛╚ƒÇ⌠Å┬â≡₧űá■çα²èâ≡₧â≡ÿÅαⁿçα≡┐ü°Åα≡ƒ└ⁿƒ└°Åα╕Åα╝ç≡ƒÇ■çα üⁿç≡¢âⁿâ≡ƒ└░âⁿâαƒαÇü■ü≡Åα░ǃαîÇⁿÇÇ░┐└ÇÇÇÇÇÇÇÇÇçⁿÇÇü≡ÇÇÇÿÇÇÇÇ≡ÇÇÇÇÇåÇÇÇä"
  51. 130 A$(30)="└ÇÇÇÇÇÇÇÇÇÇÇÇÇÇüÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇ░ÇÇäüáÇÇÇé╨áÇÅαÇ┴°Åäåç⌠ü¬ïâ≡ä°îÅ└ï≡α■Ç∞╦â≡çα░ƒü╛ââ°â≡Öƒ└ƒâ┴²â≡£╧≡»╔ñ▀à·«ï≡╧Ñ≡ ü⌡╓ï⌠₧╓≡╛├°δï°ƒà░ƒ┬·█┴ⁿç╨▄Åα┐ï≡ƒü╝ï└■ü⌠ƒ┴²ü°Åü■â°ƒü■â°ƒ└ üⁿÅα┐└ⁿç°Å≡Å└ⁿÇ■üⁿÅαâ°Ç≡ÅÇü■Çⁿç└Ç┐└ƒÇ≡åâⁿü°ç└êâ°üαÇÇÇÇⁿ"
  52. 131 A$(31)="└ÇÇÇÇÇÇÇáÉÇ▒Çü░ÉáΓêÇä±êåÇÇ┐°α■Åç≡ⁿç├≡ⁿç├≡╛ç├≡ⁿçπ≡╛âß°ƒü°╝Å└ⁿƒâ≡₧Åα°ç├Φ₧ü≡°çα╝╛ü≡Åç└₧üß∙çα╝₧ê╝ç├ß├α╕╛î₧âπ≡▒°₧Åâ╟└≡ⁿ╛Åâ└≡■₧ç┴±°Äú└≤°π°≡╕╝î┐₧çâ┴π±α≡⌠║¥Ä╟â±╬┐¥Äçπ▓ƒ¥╞╟µú╧τπ≤√ÿ±°ⁿ╝╛╢çƒÅ╟├π└°ⁿ╝₧ççÇπ∙°£Åî┴π±°£₧îâπ°°îÅüÇ≡ⁿÄåçαÇîç≡áå₧ÇÇ¢Çÿ"
  53. 132 A$(32)="└ÇÉÇÇÇêá£Çτ■Çⁿ╕╕╕îíç│├â├╟£╞ÿ╕▒╥Ö╞Ä£│╚╞Ä£╣╠τî╝∙ÖÖß╟Ä╖µÿ░π╠∙πåî╣╓£░ß├£π╧£ÿ▒╬╣≤π╠╗╟₧╕░πⁿ≤π╟çƒå╝£╕╕≡íπß├╟╞₧╛₧₧⌐ß≡≡╣ⁿî₧Åç├ß├≡°ƒâîÅ┴╨╣Ç░ƒ└ÇÇ└░ƒ└ÇëÉ░ƒ└ÇâäÿÅαÇáÇîç°ÇÇÇÇü■ÇÇÉÇÇ┐└ÇäÇÇç°ÇéªåüⁿÇê╚ÇÇ ÇÇ─éáƒΦÇù╨ÿÅ°Çèÿåâ°ÇÅΦü┴ⁿÇç°â├°╝Å╧üßⁿ₧ç╟α£Åπ"
  54. 133 A$(33)="└┴äáÉñ╚Ç░ÉäÇÇëÇÇÇ┴ÇêÇΓäÇÇêÆñäÇ┴öÿü└└ôä└éÇë╚└üÇêáÉ┬êÇüñ¿ÇüÉ└⌐àüñÇÇêáÇÇâαÇ■ƒ└Åßⁿ₧ÿƒ├ß°ßⁿ£ƒ├├≡°╛ÅÅß≡°╕╛Åçßßⁿ╝Åâ├≡╝ƒç½Φ£çâ┴°ÄÇç└ÇΩÇÇêÇÇÇÇáÇÇÇÇÇ└ÇÇÇÇÇÇÇÇÇÇÇÇ└ÇÇéÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇöÇ└┤ÆÖ┤°èßäàä├ê╤Æèܼ└àüóö╓¿┴αß─«╘µ█⌐ü┤ΘààæÇí"
  55. 134 A$(34)="└Ç└ÇÇüÇÇéÇÇáÇüêÇÇ└üÿêáÇáÇÉ░üìöñë╚áêÉï╥ñ─╔ë┬úäª╠ÿ─└─éääéÇÇÇÇÇÇ└Çâ■Ç├≡╝ÄäƒåÅß±°≡°₧╧ç╟àα°╕°∞│ßßπ┴╟╟çÄç₧££╝£╝╕╕≡╕°≡±≡±≡±≤Γ≤ßßπ╟τßαⁿÄæ╗îääê└ⁿáÇ╕á└┐ÿÇ¥└ɃαÇ«Çêƒ└Ç≈┴±°╝Å╟├╟π≡╝£₧ƒÅâé≡£╝₧à├α°ⁿ╝âτ└≡ⁿåÇÅ└ÿÅ≡ÇÅ≡îÅ°Çâ°åü■ÇÇ╛ÇáƒαÇç°åü■ÇÇ■ÇÉÅ≡Çü°"
  56. 135 A$(35)="┬èüüöîçü°°₧űΦⁿ£ÅçÅ├ß°≡ⁿ₧Å╟âß≡ⁿ£Åç├≡°╛Åçßα°₧Å├┴°ⁿƒåçß≡╛£Å├αⁿ░■çâ≡ßⁿÅçßâ°ƒçπç°₧ç╞ç°ƒâ┬ç°ƒâ╞ç°çα╨üⁿâ°çα┐αƒé┬â■üⁿèäâⁿü·ÇÅ°üÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇÇ╤ÄÇΦÿÉßÉ░Å╔╬Çâ╣éç°░ƒαÖδ╚ÿǃ╬äÇ₧ü÷É£òǃ╨Å⌠Ç┐└ü≡╝â°çⁿÇ╜ⁿ╕Çâ≡ÇÇü°Ç▀"
  57. 136 A$(36)=" ÇÇÇ └ü■Ç└ƒ≡â≡åü ÇçαÉÅ°Ç₧îç°çÄçâσ≡╝ƒτπΣÅ┤┘≥ß├«Ä╛ⁿÉτ╔╧₧¼Ö±≤τ▐î∙┘≤σ├₧╢╝∙░τ╚╟▀öî√Ö√⌠├₧▓╝∙Éτ╔╧₧¼Ö√│τ╥ä₧Σ∙╜┴τ├å╧öÜ·░δßü▀╞ƒ╜Çò°íß≡ü┐äƒ┐Ç√≡╟⌡≡ç■êƒ╧└ °ßⁿ▄â ╞ç⌡≡ç Çƒß└Å·êƒßÇÅ°îÅ°Çâ■éâⁿÇü ü└ └ÇÅ≡ÿÅ≡Çâⁿâü■ÇÇ┐Ç░ƒαÇâⁿÇÇ ÇÇÅ≡êç°░Ç┐└Çç⌠Çü■Çüâ·Çä└"
  58. 137 HELLO$="ⁿÇÇ ■ÄÅ °╕ƒ ├ú╟ⁿÿ£ƒ≡ßß åÅÄⁿÿ╕≤±ß╟ƒÄ£╕°≡±τß├╟₧₧î╝°°°√α≡≡┐üα≡╝çü°°Äâ≤└╕ç╟ÇⁿÅ╧Ç°ç╧Çⁿâ∩Ç■ü └┐Ç αÅα┐°â°ç Ç■ü∩α╝₧â╧ç├ß≡°╛₧Äçß°°ÿƒß≡≡╕▀ß≡≡╕■░°╕£┐ÿ╝£åŵÅç┴π∙ßα≡╕┐ÿ╝Äççπçâß≡ⁿα≡╝£Å╪╝Åçâ÷Åâß≡┐âα°₧Åα≡₧ç╟≡╝Åâß°₧ç┴≡°ƒâ┴°≡╛ç┴■âα╝Å└ⁿç┴°Åü≡ⁿçα╝₧ü≡₧"
  59. 140 LOCATE 7,37:PRINT"TALKER";
  60. 141 LOCATE 15,26:PRINT"                       ":LOCATE ,,0
  61. 150 LOCATE 20,25:PRINT"| Press any Letter or Number |"
  62. 160 LOCATE 21,25:PRINT"|  Press Space bar for DEMO  |"
  63. 165 LOCATE 22,25:PRINT"|    `Esc' to end program    |"
  64. 170 LOCATE 13,38:PRINT"┌───┐"
  65. 171 LOCATE 14,38:PRINT"│   │"
  66. 172 LOCATE 15,38:PRINT"└───┘"
  67. 200 ' get input
  68. 205 I$=INKEY$:IF I$="" THEN 205
  69. 210 IF I$=CHR$(27) THEN CLS:END
  70. 215 IF I$=CHR$(32) THEN 400
  71. 220 A=ASC(I$)
  72. 225 IF A>96 AND A<123 THEN A=A-32
  73. 230 IF A>64 AND A<91 THEN T=A-64:GOTO 300
  74. 240 IF A>47 AND A<58 THEN T=A-47+26:GOTO 300
  75. 250 LOCATE 14,40:PRINT" ";:SOUND 800,.1:GOTO 200
  76. 300 ' talk!
  77. 310 LOCATE 14,40:PRINT CHR$(A);:CALL TALK(A$(T)):GOTO 200
  78. 400 ' Demo
  79. 405 LOCATE 20,25:PRINT"|                            |"
  80. 406 LOCATE 21,25:PRINT"|        **  HELLO  **       |"
  81. 407 LOCATE 22,25:PRINT"|                            |"
  82. 410 CALL TALK(HELLO$)
  83. 415 FOR I=1 TO 250:NEXT I
  84. 420 FOR I=1 TO 26
  85. 425 LOCATE 14,40:PRINT CHR$(I+64);:CALL TALK(A$(I))
  86. 430 FOR J=1 TO 100:NEXT J
  87. 435 NEXT I
  88. 440 FOR I=1 TO 10
  89. 445 LOCATE 14,40:PRINT CHR$(I+47);:CALL TALK(A$(I+26))
  90. 450 FOR J=1 TO 100:NEXT J
  91. 455 NEXT I
  92. 460 GOTO 150
  93.